home *** CD-ROM | disk | FTP | other *** search
/ The Original Shareware 1.1 / The Original Shareware (WeMake CDs)(Volume 1.1)(CDs, Inc)(1993).iso / 32 / gogame.zip / GO.DEF < prev    next >
Text File  |  1987-11-21  |  768b  |  38 lines
  1. ;
  2. ; GO.DEF
  3. ;
  4. ;
  5.  
  6. BEGIN    leftb, midb, rightb, leftm, rightm, upm, downm, 25, 25
  7.  
  8. ;
  9. ; The three buttons
  10. ;
  11. leftb:    TYPE ENTER        ; select move
  12. midb:    TYPE ENTER        ; select move
  13. rightb:    TYPE "1"        ; select cursor move
  14.  
  15. ;
  16. ; The movements
  17. ;
  18. waitm:  MATCH 1,1,,"A",nothing,nothing
  19.  
  20. leftm:    MATCH 1,1,,"G",lstart,lmove    ; Check for G and move left
  21. lstart:  TYPE "1"
  22. lmove:  TYPE "4"
  23.  
  24. rightm:    MATCH 1,1,,"G",rstart,rmove
  25. rstart:  TYPE "1"
  26. rmove:  TYPE "6"    ; Check for G and move right
  27.  
  28. upm:    MATCH 1,1,,"G",ustart,umove
  29. ustart:  TYPE "1"
  30. umove:  TYPE "8"    ; Check for G and move up
  31.  
  32. downm:    MATCH 1,1,,"G",dstart,dmove
  33. dstart:  TYPE "1"
  34. dmove:  TYPE "2"    ; Check for G and move down
  35.  
  36. nothing: nothing
  37.  
  38.